﻿Imports Control_Vuelos_BE
Imports Control_Vuelos_ADO

Public Class PasajeroBL
    Dim _PasajeroADO As New PasajeroADO

    Public Function CrearPasajero(ByVal pBE As M_PasajeroBE) As Boolean
        Return _PasajeroADO.CrearPasajero(pBE)
    End Function

    Public Function ModificarPasajero(ByVal pBE As M_PasajeroBE) As Boolean
        Return _PasajeroADO.ModificarPasajero(pBE)
    End Function

    Public Function TraerPasajero(ByVal sCodp As Integer) As M_PasajeroBE
        Return _PasajeroADO.TraerPasajero(sCodp)
    End Function

    Public Function ListarPasajero(ByVal sFiltro As String) As DataTable
        Return _PasajeroADO.ListarPasajero(sFiltro)
    End Function

    Public Function TraerCodigo(ByVal sDni As String) As Integer
        Return _PasajeroADO.TraerCodigo(sDni)
    End Function

    Public Function pr_Reservas() As DataSet
        Return _PasajeroADO.pr_Reservas()
    End Function

    Public Function pr_NumeroSiguiente() As Integer
        Return _PasajeroADO.pr_NumeroSiguiente()
    End Function

    Public Function EliminarPasajero(ByVal sCodPasajero As Integer) As Boolean
        Return _PasajeroADO.EliminarPasajero(sCodPasajero)
    End Function

End Class